home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / ada / gnat-3.05- / gnat-3 / gnat-3.05-i486-linux-elf-bin / rts / io-aux.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-06-07  |  3.3 KB  |  55 lines
  1. /****************************************************************************/
  2. /*                                                                          */
  3. /*                         GNAT RUN-TIME COMPONENTS                         */
  4. /*                                                                          */
  5. /*                              A - T R A N S                               */
  6. /*                                                                          */
  7. /*                          C Implementation File                           */
  8. /*                                                                          */
  9. /*                            $Revision: 1.4 $                              */
  10. /*                                                                          */
  11. /*    Copyright (C) 1992, 1993, 1994, 1995 Free Software Foundation, Inc.   */
  12. /*                                                                          */
  13. /* GNAT is free software;  you can  redistribute it  and/or modify it under */
  14. /* terms of the  GNU General Public License as published  by the Free Soft- */
  15. /* ware  Foundation;  either version 2,  or (at your option) any later ver- */
  16. /* sion.  GNAT is distributed in the hope that it will be useful, but WITH- */
  17. /* OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY */
  18. /* or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License */
  19. /* for  more details.  You should have  received  a copy of the GNU General */
  20. /* Public License  distributed with GNAT;  see file COPYING.  If not, write */
  21. /* to  the Free Software Foundation,  59 Temple Place - Suite 330,  Boston, */
  22. /* MA 02111-1307, USA.                                                      */
  23. /*                                                                          */
  24. /* As a  special  exception,  if you  link  this file  with other  files to */
  25. /* produce an executable,  this file does not by itself cause the resulting */
  26. /* executable to be covered by the GNU General Public License. This except- */
  27. /* ion does not  however invalidate  any other reasons  why the  executable */
  28. /* file might be covered by the  GNU Public License.                        */
  29. /*                                                                          */
  30. /* GNAT was originally developed  by the GNAT team at  New York University. */
  31. /* It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). */
  32. /*                                                                          */
  33. /****************************************************************************/
  34.  
  35. #include <stdio.h>
  36.  
  37. /* Function wrappers are needed to access the values from Ada which are */
  38. /* defined as C macros.                                                 */
  39.  
  40. FILE *c_stdin  (void) { return stdin; }
  41. FILE *c_stdout (void) { return stdout;}
  42. FILE *c_stderr (void) { return stderr;}
  43.  
  44. #ifndef SEEK_SET    /* Symbolic constants for the "fseek" function: */
  45. #define SEEK_SET 0  /* Set file pointer to offset */
  46. #define SEEK_CUR 1  /* Set file pointer to its current value plus offset */
  47. #define SEEK_END 2  /* Set file pointer to the size of the file plus offset */
  48. #endif
  49.  
  50. int   seek_set_function (void)  { return SEEK_SET; }
  51. int   seek_end_function (void)  { return SEEK_END; }
  52. void *null_function     (void)  { return NULL;     }
  53.  
  54. int c_fileno (FILE *s) { return fileno (s); }
  55.